function verdeling()

	% Klein even
	v=75.1068;
	h=2.54495;
	k=2.12128;
	th=33.0412;
	ke = 0;

	for x=0:2:800
		tmp = v*((x-h)**(k-1))*exp(-x/th);
		if isreal(tmp)
			ke += tmp*x;
		endif
	endfor

	% Klein oneven
	v=761.102;
	h=3.78956;
	k=2.18987;
	th=33.4536;
	ko = 0;

	for x=1:2:800
		tmp = v*((x-h)**(k-1))*exp(-x/th);
		if isreal(tmp)
			ko += tmp*x;
		endif
	endfor

	% Groot even
	v=4.17e11;
	h=804;
	k=1.46586;
	th=40.6288;
	ge = 0;

	for x=800:2:1600
		tmp = v*((x-h)**(k-1))*exp(-x/th);
		if isreal(tmp)
			ge += tmp*x;
		endif
	endfor


	% Groot oneven
	v=8.87518e8;
	h=811.718;
	k=1.49628;
	th=45.4774;
	go = 0;

	for x=801:2:1600
		tmp = v*((x-h)**(k-1))*exp(-x/th);
		if isreal(tmp)
			go += tmp*x;
		endif
	endfor
	
	amount = 1e6;
	printf("Klein even som: %f\tgem: %f\n", ke, ke/amount);
	printf("Klein oneven som: %f\tgem: %f\n", ko, ko/amount);
	printf("Groot even som: %f\t gem: %f\n", ge, ge/amount);
	printf("Groot oneven som: %f\t gem: %f\n", go, go/amount);
	
	printf("Som: %f\n", (ke+ko+ge+go));
	printf("Gem: %f\n", (ke+ko+ge+go)/amount);
endfunction
